home *** CD-ROM | disk | FTP | other *** search
/ Aminet 46 / Aminet 46 (2001)(GTI - Schatztruhe)[!][Dec 2001].iso / Aminet / text / edit / edt10src.lha / txt / scripts / CreateCD.edt < prev    next >
Text File  |  1995-02-28  |  744b  |  51 lines
  1. /* CreateCD - CD-Datei aus StrPool.mod erzeugen */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. Busy "Erzeuge CD-Datei ..."
  6. DisplayOff
  7.  
  8. Get WINDOWID
  9. src=RESULT
  10. NewWindow
  11. New
  12. DisplayOff
  13. LinkChanges
  14. Get WINDOWID
  15. dest=RESULT
  16. Insert "; Edt: Catalog Description $VER 10.0 (28.7.94)"||'0a'x||";"||'0a'x
  17. SelectWindow src
  18. Top; First
  19.  
  20. i=0
  21. Find NEXT 'D = "'
  22. DO WHILE RESULT
  23.   Get COLUMN
  24.   p0=RESULT+5
  25.   Set COLUMN 2
  26.   Read p0-5-2
  27.   var=RESULT
  28.   Last
  29.   Left 2
  30.   Read 1
  31.   IF RESULT~='"' THEN
  32.     Right
  33.   Get COLUMN
  34.   len=RESULT-p0
  35.   Set COLUMN p0
  36.   Read len
  37.   str=RESULT
  38.   SelectWindow dest
  39.   Insert var||" ("||i||"//)"||'0a'x||str||'0a'x
  40.   i=i+1
  41.   SelectWindow src
  42.   Find NEXT 'D = "'
  43.   END
  44.  
  45. SelectWindow dest
  46. LinkChangesDone
  47. DisplayOn
  48. SelectWindow src
  49. DisplayOn
  50. BusyDone
  51. Top; First